COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	To make pages of the Marais thematic catalog:
C00004 00003	3) For even numbered pages
C00006 ENDMK
C⊗;
To make pages of the Marais thematic catalog:
1) alter xpage.pty file by 
  a) deleting XM commands
  b) changing to DO format (i.e., delete first character and put ↔ at end of each line
  c) change MP size to: 2 1

2) For odd numbered pages:
  a) pub:

. DEVICE XGP    
.<<  Places odd numbered pages  >>
.
.spacing 20*5 mills;
.EVERY HEADING(,,)
.AREA TEXT LINES 4 TO 40
.FONT 1 "MBIG[HHA,LCS]";
.!XGPLFTMAR←600;   << 200/INCH, ODD PAGE  >>
.PORTION MAIN;
.PLACE TEXT;
.PAGE FRAME 138 WIDE 106 HIGH;
.COMPACT
.TURN ON "%↓_↑↓[&]","α"
.FILL
.CENTER

%1⊂⊗⊃L[α%0,α%-17.8](17,22):PLT.PLT[T1,GHB]⊂⊗⊃

  b)  to run the VARIAN:

R XGPSYG;VPB1.XGP/B/RMAR=3400/PMAR=1000/BMAR=267/TMAR=200/TH=2/ED↔
/YSH=0↔
1↔
O↔
A1.VRN↔
/YSH=-1467↔
1↔
O↔
B1.VRN↔
/YSH=-2934↔
1↔
O↔
C1.VRN↔
λ
DEL PLT.PLT↔
R VARIAN↔
Y↔
A1↔
B1↔
C1↔
↔
R VARIAN↔
Y↔
A1↔
B1↔
C1↔
↔
DEL A1.VRN,B1.VRN,C1.VRN↔



3) For even numbered pages
  a) PUB:

. DEVICE XGP    
.<<  Places even numbered pages  >>
.
.spacing 20*5 mills;
.EVERY HEADING(,,)
.AREA TEXT LINES 4 TO 40
.FONT 1 "MBIG[HHA,LCS]";
.!XGPLFTMAR←400;   << 200/INCH, EVEN PAGE  >>
.PORTION MAIN;
.PLACE TEXT;
.PAGE FRAME 138 WIDE 106 HIGH;
.COMPACT
.TURN ON "%↓_↑↓[&]","α"
.FILL
.CENTER

%1⊂⊗⊃L[α%0,α%-17.8](17,22):PLT.PLT[T1,GHB]⊂⊗⊃

  b) for the VARIAN:

R XGPSYG;VPB2.XGP/B/RMAR=3400/PMAR=1000/BMAR=267/TMAR=200/TH=2/ED↔
/YSH=0↔
1↔
O↔
A1.VRN↔
/YSH=-1467↔
1↔
O↔
B1.VRN↔
/YSH=-2934↔
1↔
O↔
C1.VRN↔
λ
DEL PLT.PLT↔
R VARIAN↔
Y↔
A1↔
B1↔
C1↔
↔
R VARIAN↔
Y↔
A1↔
B1↔
C1↔
↔
DEL A1.VRN,B1.VRN,C1.VRN↔